Private Sub Form_Load()
Dim color, Myvar
color = InputBox("Enter the name of a color (Red, Blue, Green, Light Green, Pink) You Have 60 Seconds to complete game")
Myvar = LCase(color)
Select Case Myvar
Case "red"
frmGame.BackColor = RGB(255, 0, 0)
    Case "green"
          frmGame.BackColor = RGB(0, 255, 0)
    Case "blue"
          frmGame.BackColor = RGB(0, 0, 255)
    Case "light green"
        frmGame.BackColor = RGB(150, 255, 0)
        Case "pink"
        frmGame.BackColor = RGB(255, 0, 255)
    Case Else
    MsgBox "Pick another colour"
End Select
End Sub